DODEFU.LSP[C,JRA] - www.SailDart.org

perm filename DODEFU.LSP[C,JRA] blob sn#013262 filedate 1972-11-19 generic text, type T, neo UTF8

00100	(PUTPROP (QUOTE DEFUN)(QUOTE DODEFUN)(QUOTE COMPACTION))
00150	
00300	(DE DODEFUN 
00400	(L)(PROG (Z Z1 Z2)(SETQ Z2(CADR L))(RPLACA(CDR  L)(QUOTE %%))
00450	(SETQ Z(GETL(SETQ Z1 (EVAL L)) (QUOTE (EXPR FEXPR MACRO))))
00475	(REMPROP (QUOTE %%)(CAR Z))(RPLACA(CDR L)Z2)
00500	(RETURN(COMPDEF(LIST (QUOTE DEFPROP) Z2(CADR Z)(CAR Z)))) )))
00600	(DEFPROP CDEFUN(LAMBDA(L)(PUTPROP(CAR L)(CDR L)(QUOTE CEXPR))(CAR L))FEXPR)
00700	(DEFPROP DISPATCH T *SUBR)(DEFPROP CSET T *SUBR)